home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_85-01_1985_Verlag_Heinz_Weise_de.d64 / BITS & BYTES IM (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  25KB  |  731 lines
  1. 1 printchr$(142):printchr$(8):poke50257,20:v=53248:pokev+21,0:goto5
  2. 3 poke211,s:poke214,z:sys58640:print"";:return
  3. 5 t=54272:fori=ttot+28:next:gosub50000:v$=chr$(34)
  4. 10 gosub30000:remtitel
  5. 15 v=53248:pokev+32,15:pokev+33,15:in=1:gosub20000:printchr$(142);chr$(8);
  6. 20 gosub25000:reminhalt
  7. 50 oningosub1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000,12000,13000
  8. 60 ifin>13thenon(in-13)gosub14000,15000,16000,17000
  9. 70 ifin>17orin=0thenclr:goto5
  10. 100 goto50
  11. 1000 rem teil 1: der baustein an sich
  12. 1010 printz$;:v=53248:pokev+16,0:x=0
  13. 1020 print"[144][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
  14. 1030 print"[144][221] [213][192][192][192][192][192][192][192][192][192][201]                    [213][192][192][201][144] [221]";
  15. 1040 print"[144][221] [202][192][192][192][192][192][192][192][192][192][203]                    [202][192][192][203] [221]";
  16. 1050 remprint"[144][221]                                     [221]";
  17. 1060 print"[144][221]                                     [221]";
  18. 1070 print"[144][221]                                     [221]";
  19. 1080 print"[144][221][155] [149]_ 1 2 3 4 5 6 7 8 9 0 + - \ c d[155]  [149]f1[144][146] [221]";
  20. 1090 print"[144][221] [149]ct q w e r t y u i o p @ * ^ re[155]  [149]f3[144][146] [221]";
  21. 1100 print"[144][221] [149]r s a s d f g h j k l : ; = ret[155]  [149]f5[155][146][144] [221]";
  22. 1110 print"[144][221] [149]@ sh z x c v b n m , . / sh ^ _[146]  f7[144][146] [221]";
  23. 1120 print"[144][221]      [149]                  [146][144]             [221]";
  24. 1130 print"[144][221]                                     [221]";
  25. 1140 print"[144][202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]";
  26. 1200 print:print"[144]der video-chip kontrolliert das fernseh-bzw. monitorbild ihres c 64"
  27. 1210 print:print"er sitzt (meistens) unter dem ";
  28. 1230 print"'r' in","einem blechgehaeuse und ist etwa so ","gross wie die ";
  29. 1235 print"'return'-taste"
  30. 1300 pokev+21,1:poke2040,13:pokev+29,1:pokev+23,1:pokev,125:pokev+1,070:pokev+39,6
  31. 1305 ifx<2thenj=10:gosub40200
  32. 1310 fort=0to600:next
  33. 1320 ifx<2thenpokev+21,0:fort=0to100:next:x=x+1
  34. 1325 z=24:s=14:gosub3:print" v ";:z=24:s=25:gosub3:print" z ";
  35. 1326 z=24:s=34:gosub3:print" * ";
  36. 1330 getw$:ifw$="v"orw$="z"orw$="*"then1994
  37. 1340 fort=0to200:next:z=24:s=14:gosub3:print" v [146]";:z=24:s=25:gosub3:print" z [146]";
  38. 1345 z=24:s=34:gosub3:print" * [146]";
  39. 1350 fort=0to180:next:goto1300
  40. 1990 gosub60000
  41. 1992 goto1995
  42. 1994 gosub60010
  43. 1995 return
  44. 2000 rem der chip
  45. 2010 printz$;:print:print:print"[144]der chip sieht - vereinfacht - so aus:" :print
  46. 2020 print:print
  47. 2030 print"[144][169]                   [146][169][165]  cirka"
  48. 2040 print"[169]    [146][169]vic 6569[169]     [146][169] [165]"
  49. 2050 print"[169]                   [146][169] [206]  8-fache"
  50. 2060 print"[151]                    [146][144] [206]"
  51. 2070 print"[151]                    [146][144][206]  vergroesserung"
  52. 2080 print"[194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194]"
  53. 2090 print
  54. 2100 print:print:print
  55. 2110 print"wie ein kaefer mit 40 beinen":fort=0to800:next
  56. 2200 z=13:s=2:gosub3:print"[206]":j=9:gosub40200:fort=0to500:next:j=7:gosub40200
  57. 2210 z=13:s=2:gosub3:print"[194]";
  58. 2990 gosub60000
  59. 2995 return
  60. 3000 rem register
  61. 3010 printz$;"[144]":print"der vic hat 47 speicher ("chr$(34)"register"chr$(34)"),",
  62. 3020 print"die vom programmierer angesprochen":print"werden koennen.":print
  63. 3030 print"das register nr.0 hat im c-64-speicher":print"die nummer ("chr$(34);
  64. 3032 print"adresse"chr$(34);")";
  65. 3035 print" 53248,":print"register nr.1 = 53249 usw.":print:print:print
  66. 3040 print"ein register besteht aus 8 bits = 1 byte":print
  67. 3050 for j=7to0step-1
  68. 3060 print"[181]   [182][157][157][157][157][157][204][185][185][185][186][157][157][157][157]"j"[145][145]";:gosub40200:fort=0to199:next
  69. 3070 nextj:print:print:print""
  70. 3080 print"(auf den seiten 4 bis 10 finden sie eine";:print"einfuehrung in das";
  71. 3090 print"[160]thema "chr$(34)"bits & bytes"chr$(34)")[144]"
  72. 3990 gosub60000
  73. 3995 return
  74. 4000 rem bits ein/aus
  75. 4010 printz$;"[144]":print:print:v=53248:zz=0:x=0
  76. 4020 for j=7to0step-1
  77. 4030 print"[181]   [182][157][157][157][157][157][204][185][185][185][186][157][157][157][157]"j"[145][145]";:gosub40200:fort=0to99:nextt
  78. 4040 nextj:print:print
  79. 4050 fori=2040to2047:pokei,11:next:pokev+23,0:pokev+29,0
  80. 4070 pokev+14,32:pokev+12,72:pokev+10,112:pokev+8,152:pokev+6,192:pokev+4,232
  81. 4080 pokev+16,2^0+2^1:pokev+2,16:pokev+0,56
  82. 4090 fori=1to15step2:pokev+i,50:next
  83. 4100 fori=39to46:pokev+i,6:next
  84. 4105 print:print
  85. 4110 print"ein bit kann gesetzt (=1) oder":print"geloescht (=0) sein":print
  86. 4115 print:print:print:print:print:print:print:print""
  87. 4120 z=21:s=0:gosub3:print"probieren sie doch mal aus!"
  88. 4125 print"tasten 0-7: setzen/ shift 0-7: loeschen[146][144]"
  89. 4130 getw$:ifw$=""andx=0thenfort=0to300:next:goto4996
  90. 4131 ifw$=""then4130
  91. 4132 ifpeek(653)then4300
  92. 4135 ifw$="v"orw$="z"orw$="*"then4994
  93. 4140 ifasc(w$)<48orasc(w$)>55then4130
  94. 4180 sp=asc(w$)-47:x=1
  95. 4190 pokev+21,peek(v+21)or2^(sp-1)
  96. 4200 fori=30to91:pokev+sp*2-1,i:next:gosub40100
  97. 4210 dz=0:fori=15to1step-2
  98. 4220 dz=2*dz+(peek(v+i)=91)
  99. 4225 next
  100. 4230 poke211,09:poke214,14:sys58640:print"byte-wert=     [157][157][157][157][157]";-dz;"[157] [146][144]":print:print
  101. 4290 goto4400
  102. 4300 ifasc(w$)<32orasc(w$)>48then4130
  103. 4302 ifasc(w$)>39andasc(w$)<>48then4130
  104. 4305 sp=asc(w$)-31:ifsp>9thensp=1
  105. 4310 fori=91to30step-1:pokev+sp*2-1,i:next:j=10:gosub40200
  106. 4320 pokev+21,peek(v+21)and(255-2^(sp-1))
  107. 4330 dz=0:fori=15to1step-2
  108. 4340 dz=2*dz+(peek(v+i)=91)
  109. 4345 next
  110. 4350 poke211,09:poke214,14:sys58640:print"byte-wert=     [157][157][157][157][157]";-dz;"[157] [146][144]":print:print
  111. 4390 rem sprite loeschen ende
  112. 4400 print"mit 8 bits (= 1 byte) lassen sich zahlen zwischen 0 und 255 darstellen"
  113. 4450 goto4130
  114. 4990 gosub60000
  115. 4992 goto4995
  116. 4994 gosub60010
  117. 4995 return
  118. 4996 z=19:s=0:gosub3:print"[205][205][165][157][157][183]";:fort=0to300:next
  119. 4997 z=19:s=0:gosub3:print"[144]   [157][157] ";:fort=0to100:next:goto4130
  120. 5000 printz$;:print:print
  121. 5010 print"[155]":forj=7to0step-1
  122. 5020 print"[181]   [182][157][157][157][157][157][204][185][185][185][186][157][157][157][157]"j"[145][145]";:ifj=1thenprint"[144]";:gosub40200
  123. 5030 next:print:print:print
  124. 5040 print"ein bit ist gesetzt wert = 1[146][144]"
  125. 5050 pokev+21,1:fori=50to91:pokev+1,i:next:gosub40100:fort=0to2000:next
  126. 5060 print:print"oder geloescht wert = 0 [146][144]"
  127. 5080 fori=91to50:pokev+15,i:next:j=1:gosub40200:pokev+21,0:fort=0to2000:next
  128. 5090 print:print"wir wollen natuerlich nicht nur":print"bis eins zaehlen. ":print
  129. 5100 print"nehmen wir ein zweites bit.":print"[155]";:forj=7to0step-1
  130. 5110 print"[181]   [182][157][157][157][157][157][204][185][185][185][186][157][157][157][157]"j"[145][145]";:ifj=2thenprint"[144]";:gosub40200
  131. 5120 next:fort=0to2000:next
  132. 5130 poke211,00:poke214,18:sys58640:print"ist das erste bit voll ...";
  133. 5140 pokev+21,1:fori=50to91:pokev+1,i:next:gosub40100:print"wert = 1[146][144]"
  134. 5145 fort=0to2000:next:print
  135. 5150 print"... und wir zaehlen 1 weiter";:fort=0to1000:next
  136. 5160 fori=91to50step-1:pokev+1,i:next:pokev+21,2:fori=50to91:pokev+3,i:next
  137. 5170 gosub40100:fort=0to1000:next:print" wert = 2[146][144]":fort=0to100:next
  138. 5180 print:print"springt es eine stelle weiter";
  139. 5990 gosub60000
  140. 5995 return
  141. 6000 printz$:print"[144]":print"sie kennen diesen":print"stellensprung aus"
  142. 6001 v=53248
  143. 6010 print"dem "chr$(34)"normalen"chr$(34):print"zahlensystem"
  144. 6020 fori=4to21:s=30:z=i:gosub3:print"[181]   [182][181]   [182]";:next
  145. 6030 s=30:z=22:gosub3:print"[204][183][183][183][146][186][204][183][183][183][146][186]";
  146. 6040 s=0:z=9:gosub3:print"sie zaehlen bis "chr$(34)"9"chr$(34)
  147. 6050 fori=0to9:s=21:z=9:gosub3:print"  [157][157]"i"[146][144]";
  148. 6060 ifi>othens=36:z=23-2*i:gosub3:print"   [145][157][157][157][183][183][183]";:gosub40100
  149. 6070 fort=0to500:nextt
  150. 6080 nexti
  151. 6100 s=0:z=11:gosub3:print"[146][144]bei "v$"10"v$:print"stellensprung        10[146][144]";
  152. 6110 fori=0to09:s=36:z=21-2*i:gosub3:print"   [145][157][157][157]   ";:next
  153. 6120 pokev+21,2:fori=80to215:pokev+3,i:next:gosub40100
  154. 6150 s=0:z=15:gosub3:print"die rechte stelle":print"wird leer (=0)"
  155. 6160 print:print"daher der name":print"[145]"v$"zehner-system"v$:print"(oder: dezimalsystem)"
  156. 6990 gosub60000
  157. 6995 return
  158. 7000 printz$"[144]":v=53248:se=123:x=0
  159. 7010 print:print"mit "v$"bits"v$" und "v$"bytes"v$"[160]wird im":printv$"zweier-system"v$;
  160. 7020 print"[160](oder: dual-system)"
  161. 7030 print"gezaehlt":print:print
  162. 7050 for j=7to0step-1
  163. 7060 print"[181]   [182][157][157][157][157][157][204][185][185][185][186][157][157][157][157]"j"[145][145]";:gosub40200
  164. 7070 nextj:print:print
  165. 7080 z=14:s=12:gosub3:print"   [157][157][157]byte-wert = 0[146][144]":fort=0to2500:next
  166. 7090 z=16:s=0:gosub3:print"und einen dazu"
  167. 7100 pokev+21,1:fori=50tose:pokev+1,i:next:gosub40100
  168. 7110 z=14:s=12:gosub3:print"   [157][157][157]byte-wert = 1[146][144]":fort=0to2500:next
  169. 7120 z=16:s=0:gosub3:print"und noch einen ..."
  170. 7125 fori=seto50step-1:pokev+1,i:next:pokev+21,2:fori=50tose:pokev+3,i:next
  171. 7126 gosub40100
  172. 7130 z=14:s=12:gosub3:print"   [157][157][157]byte-wert = 2[146][144]":fort=0to100:next
  173. 7135 z=17:s=0:gosub3:print"stellensprung in bit 1":fort=0to2500:next
  174. 7140 z=16:s=0:gosub3:print"und noch einen ..."
  175. 7150 pokev+21,1+2:fori=50tose:pokev+1,i:next:gosub40100
  176. 7160 z=14:s=12:gosub3:print"   [157][157][157]byte-wert = 3[146][144]":fort=0to100:next
  177. 7170 z=17:s=0:gosub3:print"kein stellensprung    ":fort=0to2500:next
  178. 7180 z=16:s=0:gosub3:print"und noch einen ..."
  179. 7190 fori=seto50:pokev+1,i:pokev+3,i:next:pokev+21,4
  180. 7200 fori=50tose:pokev+5,i:next:gosub40100
  181. 7210 z=14:s=12:gosub3:print"   [157][157][157]byte-wert = 4[146][144]":fort=0to100:next
  182. 7220 z=17:s=0:gosub3:print"stellensprung aus bit 0 & 1 in bit 2"
  183. 7230 fort=0to2500:next
  184. 7300 s=4:z=21:gosub3:print"sie koennen jetzt mit '+' um 1"
  185. 7310 print"erhoehen, mit '-' um 1 vermindern[144]":dz=4
  186. 7320 fori=1to15step2:pokev+i,se:next
  187. 7350 getw$:ifw$="v"orw$="z"orw$="*"then7994
  188. 7360 ifw$="+"orw$="-"thenx=1:goto7390
  189. 7370 ifw$=""andx=0thenfort=0to300:next:goto7996
  190. 7380 goto7350
  191. 7390 z=14:s=0:gosub3:fori=0to160:print" ";:next
  192. 7395 ifw$="-"then7600
  193. 7400 dz=dz+1:ifdz>255thendz=255:goto73507370
  194. 7410 pokev+21,dz:gosub40100
  195. 7420 z=16:s=12:gosub3:print"byte-wert =    [157][157][157][157]"dz"[146][144]"
  196. 7500 goto7350
  197. 7600 dz=dz-1:ifdz<0thendz=0
  198. 7610 pokev+21,dz:j=10:gosub40200
  199. 7620 z=16:s=12:gosub3:print"byte-wert =    [157][157][157][157]"dz"[146][144]"
  200. 7700 goto7350
  201. 7990 gosub60000
  202. 7992 goto7995
  203. 7994 gosub60010
  204. 7995 return
  205. 7996 z=19:s=0:gosub3:print"[205][205][165][157][157][183]";:fort=0to300:next
  206. 7997 z=19:s=0:gosub3:print"[144]   [157][157] ";:goto7300
  207. 8000 printz$"[144]":v=53248:fori=1to15step2:pokev+i,99:next
  208. 8010 print"nun ein klein wenig mathematik:":print:print
  209. 8020 for j=7to0step-1:j$=str$(j):j$=right$(j$,1)
  210. 8030 print"[181]   [182][157][157][157][157][157][204][185][185][185][186][157][157][157][157]2^"j$"[145][145]";:gosub40200
  211. 8040 nextj:
  212. 8050 print:print:print"[158] 128   64   32   16    8    4    2    1 [146][144]";:print
  213. 8060 print:print"im dual-system hat die rechte stelle"
  214. 8065 print"den wert 1*2^0 (gesetzt)"
  215. 8070 print"oder 0*2^0 (geloescht) - also 1 oder 0":print
  216. 8080 print"die naechste stelle 1*2^1 oder 0*2^1 - ":print"also 2 oder 0.";
  217. 8090 print" (siehe bild)" :print:fort=0to500:next
  218. 8100 pokev+21,1:gosub40100:pokev+21,5:gosub40100:fort=0to500:next
  219. 8110 print"im bild: 2^0 = 1"
  220. 8120 print"       + 2^2 = 4"
  221. 8130 print"       [163][163][163][163][163][163][163][163][163]"
  222. 8140 print"   byte-wert = 5[146][144]"
  223. 8990 gosub60000
  224. 8995 return
  225. 9000 printz$"[144]":v=53248:x=0:xx=0
  226. 9010 print"lassen sie uns rechnen:":print:print
  227. 9020 for j=7to0step-1:j$=str$(j):j$=right$(j$,1)
  228. 9030 print"[181]   [182][157][157][157][157][157][204][185][185][185][186][157][157][157][157]2^"j$"[145][145]";:gosub40200
  229. 9040 nextj:
  230. 9050 print:print:print"[158] 128   64   32   16    8    4    2    1 [146][144]";:print:print
  231. 9060 z=14:s=0:gosub3:print"setzen sie doch einmal die zahl: ";
  232. 9065 fori=1to15step2:pokev+i,30:next:x=0
  233. 9070 za=int(rnd(1)*255):print"      [157][157][157][157][157][157]"za;
  234. 9080 z=21:s=0:gosub3:print"[146]setzen mit den tasten 0-7"
  235. 9090 print"loeschen mit'shift' 0-7"
  236. 9100 getw$:ifw$=""andxx=0then9996
  237. 9105 ifw$=""then9100
  238. 9110 ifpeek(653)then9300
  239. 9120 ifw$="v"orw$="z"orw$="*"then9994
  240. 9140 ifasc(w$)<48orasc(w$)>55then9100
  241. 9180 sp=asc(w$)-47:xx=1
  242. 9190 pokev+21,peek(v+21)or2^(sp-1)
  243. 9200 fori=30to99:pokev+sp*2-1,i:next:gosub40100
  244. 9210 dz=0:fori=15to1step-2
  245. 9220 dz=2*dz+(peek(v+i)=99)
  246. 9225 next
  247. 9230 dz=-dz:z=17:s=0:gosub3:print"aktueller byte-wert =         [157][157][157][157][157][157][157][157][157]"dz;
  248. 9235 print"    [157][157][157][157]  rest =      [157][157][157][157][157][157]";za-dz
  249. 9240 ifdz=zathenz=19:s=0:gosub3:print"gut! sie mussten "x"-mal korrigieren.[144]":goto9260
  250. 9250 goto9299
  251. 9260 fort=0to4000:next:z=14:s=0:gosub3:fori=0to239:print" ";:next
  252. 9270 pokev+21,0:fort=0to999:next:goto9060
  253. 9299 goto9100
  254. 9300 ifasc(w$)<32orasc(w$)>48then9100
  255. 9302 ifasc(w$)>39andasc(w$)<>48then9100
  256. 9305 x=x+1:sp=asc(w$)-31:ifsp>9thensp=1
  257. 9310 fori=99to30step-1:pokev+sp*2-1,i:next:j=10:gosub40200
  258. 9320 pokev+21,peek(v+21)and(255-2^(sp-1))
  259. 9330 dz=0:fori=15to1step-2
  260. 9340 dz=2*dz+(peek(v+i)=99):next
  261. 9350 dz=-dz:z=17:s=0:gosub3:print"aktueller byte-wert =         [157][157][157][157][157][157][157][157][157]"dz;
  262. 9355 print"    [157][157][157][157]  rest =      [157][157][157][157][157]";za-dz
  263. 9360 ifdz=zathenz=19:s=0:gosub3:print"gut! sie mussten "x"-mal korrigieren.[144]":goto9380
  264. 9370 goto9400
  265. 9380 fort=0to4000:next:z=14:s=0:gosub3:fori=0to239:print" ";:next
  266. 9390 pokev+21,0:fort=0to999:next:goto9060
  267. 9400 goto9100
  268. 9990 gosub60000
  269. 9992 goto9995
  270. 9994 gosub60010
  271. 9995 return
  272. 9996 z=19:s=0:gosub3:print"[205][205][165][157][157][183]";:fort=0to300:next
  273. 9997 z=19:s=0:gosub3:print"[144]   [157][157] ";:fort=0to200:next:goto9100
  274. 10000 printz$"[144]":v=53248:pokev+21,0:fori=1to15step2:pokev+i,30:next
  275. 10010 print"und jetzt dualzahlen in dezimalzahlen:":print:print
  276. 10020 for j=7to0step-1:j$=str$(j):j$=right$(j$,1)
  277. 10030 print"[181]   [182][157][157][157][157][157][204][185][185][185][186][157][157][157][157]2^"j$"[145][145]";:gosub40200
  278. 10040 nextj
  279. 10045 print:print:print"[158] 128   64   32   16    8    4    2    1 [146][144]";:print:print
  280. 10050 e=int(rnd(1)*5):fori=1toe
  281. 10060 w1=int(rnd(1)*7)
  282. 10070 pokev+21,peek(v+21)or2^w1:forj=30to99:pokev+2*w1+1,j:next:gosub40100
  283. 10080 nexti:c=0
  284. 10100 dz=0:fori=15to1step-2:dz=2*dz+(peek(v+i)=99):nexti:dz=-dz:dd=dz
  285. 10110 b$="":fori=0to7:b$=str$(dd-int(dd/2)*2)+b$:dd=int(dd/2):next
  286. 10120 z=10:s=0:gosub3:print:print:print:print"wandeln sie bitte die oben angezeigte"
  287. 10130 print"dualzahl      "b$"[146][144]"
  288. 10140 print"in eine dezimalzahl um!":ww$="":x=0
  289. 10145 print:print"eingabe mit 'return' beenden[144]":z=19:s=18:gosub3
  290. 10150 getw$:poke204,0:ifw$=""then10150
  291. 10160 ifpeek(207)then10160
  292. 10165 poke204,1
  293. 10170 ifw$="v"orw$="z"orw$="*"then10994
  294. 10180 ifw$=chr$(13)then10300
  295. 10190 ifasc(w$)<48orasc(w$)>57then10150
  296. 10200 c=c+1:ifc<4thenprintw$;:ww$=ww$+w$:goto10150
  297. 10210 goto10150
  298. 10300 ifval(ww$)=dzthenifx=0thenprint"  gut!! sie mussten nicht korrigieren!
  299. 10305 [139][197](ww$)[178]dz[167][139]x[177]0[167][153]"  gut!! sie mussten"x"-mal korrigieren."
  300. 10310 [139][197](ww$)[177]dz[167][153]"  zu gross !!";:[129]t[178]0[164]1000:[130]:x[178]x[170]1:[137]10360
  301. 10320 [137]10340
  302. 10340 [139][197](ww$)[179]dz[167][153]"  zu klein !!";:[129]t[178]0[164]1000:[130]:x[178]x[170]1:[137]10360
  303. 10350 [137]10370
  304. 10360 z[178]17:s[178]0:[141]3:[129]i[178]0[164]139:[153]" ";:[130]:ww$[178]"":c[178]0:z[178]19:s[178]18:[141]3
  305. 10365 [137]10150
  306. 10370 [129]t[178]0[164]2000:[130]:[137]10000
  307. 10990 [141]60000
  308. 10992 [137]10995
  309. 10994 [141]60010
  310. 10995 [142]
  311. 11000 [153]z$"stop":v[178]53248:[129]i[178]1[164]15[169]2:[151]v[170]i,30:[130]:x[178]0
  312. 11005 [129]i[178]39[164]46:[151]v[170]i,0:[130]
  313. 11010 [153]"nun also der video-chip:":[153]:[153]
  314. 11020 [129] j[178]7[164]0[169][171]1:j$[178][196](j):j$[178][201](j$,1)
  315. 11030 [153]"int   abscmdcmdcmdcmdcmd(NULL)pospospossqrcmdcmdcmdcmd2^"j$"ononstop";:[141]40200
  316. 11040 [130]j:[153]:[153]:[153]:[153]
  317. 11050 [153]"fangen wir mit register 17 an"
  318. 11060 [153]"(reg. 17waitstop = adresse 53265waitstop)"
  319. 11070 [151]v[170]21,1[170]2[170]8[170]16:[129]i[178]30[164]99:[151]v[170]1,i:[151]v[170]3,i:[151]v[170]7,i:[151]v[170]9,i
  320. 11080 [130]:[141]40100
  321. 11100 [153]:[153]"dies ist die originalbelegung - beim"
  322. 11110 [153]"auslesen durch 'peek(53265)' erhalten"
  323. 11120 [153]"sie den wert 27.":[153]"die bits 0,1,3 und 4 sind gesetzt"
  324. 11130 [153]:[153]:[153]:[153]"loeschen sie doch mal bit 4!"
  325. 11140 [153]"          (mit 'shift' 4)stop"
  326. 11150 [161]w$:[139]w$[178]"v"[176]w$[178]"z"[176]w$[178]"*"[167]11994
  327. 11160 [139]w$[178]""[175]x[178]0[167][129]t[178]0[164]300:[130]:[137]11996
  328. 11170 [139]w$[178]"$"[167]x[178]1:[137]11200
  329. 11180 [137]11150
  330. 11200 [151]v[170]17,[194](v[170]17)[171]16
  331. 11210 [129]i[178]0[164]20:j[178]i[173]2[170]10:[141]40200:[141]40100:[130]i
  332. 11220 [151]v[170]17,27
  333. 11230 z[178]14:s[178]0:[141]3:[153]"stop   wie sie sahen, sahen sie nichts.    ";
  334. 11240 [153]"    valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval  stop"
  335. 11250 [153]"   denn bit 4 in diesem vic-register"
  336. 11260 [153]"   valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
  337. 11270 [153]"stopentscheidet ueber bildschirm ein- / aus"
  338. 11280 [153]"valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
  339. 11300 [137]11150
  340. 11990 [141]60000
  341. 11992 [137]11195
  342. 11994 [141]60010
  343. 11995 [142]
  344. 11996 z[178]19:s[178]3:[141]3:[153]"(NULL)(NULL)fncmdcmdusr";:[129]t[178]0[164]300:[130]
  345. 11997 z[178]19:s[178]3:[141]3:[153]"stop   cmdcmd ";:[137]11150
  346. 12000 [153]z$"stop":v[178]53248:[129]i[178]1[164]15[169]2:[151]v[170]i,30:[130]
  347. 12005 [129]i[178]39[164]46:[151]v[170]i,0:[130]
  348. 12010 [153]"betrachten wir die anderen bits":[153]:[153]
  349. 12020 [129] j[178]7[164]0[169][171]1:j$[178][196](j):j$[178][201](j$,1)
  350. 12030 [153]"int   abscmdcmdcmdcmdcmd(NULL)pospospossqrcmdcmdcmdcmd2^"j$"ononstop";:[141]40200
  351. 12040 [130]j:[151]v[170]21,27
  352. 12050 [153]:[153]:[153]:[153]"    vic-register 17waitstop (adresse 53265wait)stop"
  353. 12055 [153]:[153]" wir betrachten zunaechst nur bit 0-4";
  354. 12057 [153]"   (die bits 5-7 kommen spaeter dran)
  355. 12060 z=21:s=0:gosub3:print"    experimentieren sie doch mal!"
  356. 12070 print"tasten 0-4: setzen, 'shift' o-4:loeschen";:pokev+5,99
  357. 12080 f=99:pokev+1,f:pokev+3,f:pokev+7,f:pokev+9,f:pokev+21,27:gosub40100:x=0
  358. 12100 getw$:ifw$=""andx=0then12996
  359. 12105 ifw$=""then12100
  360. 12110 ifpeek(653)then12300
  361. 12120 ifw$="v"orw$="z"orw$="*"then12994
  362. 12130 ifasc(w$)<48orasc(w$)>52then12100
  363. 12200 sp=asc(w$)-48:x=1
  364. 12210 pokev+21,peek(v+21)or2^sp:gosub40100
  365. 12220 pokev+17,peek(v+17)or2^sp
  366. 12230 onsp+1goto12240,12240,12240,12260,12280
  367. 12240 z=12:s=0:gosub3:print"die bits 0-2 legen die bildschirmver-",
  368. 12242 print"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]   [144]";
  369. 12245 print"schiebung nach oben oder unten fest     ";
  370. 12247 print"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]     [144]";:goto12100
  371. 12260 z=12:s=0:gosub3:print"       bit 3 ist zustaendig fuer       ",
  372. 12262 print"       [197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]        [144]";
  373. 12265 print"die bildschirmgroesse: 25 oder 24 zeilen";
  374. 12267 print"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][144]";:goto12100
  375. 12280 z=12:s=0:gosub3:print"      das kennen sie schon ....      ",
  376. 12282 print"      [197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]         [144]";
  377. 12285 print"bit 4 regiert ueber bildschirm an/aus   ";
  378. 12287 print"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]   [144]";:pokev+21,peek(v+21)or16
  379. 12290 goto12100
  380. 12300 ifasc(w$)<33orasc(w$)>48then12100
  381. 12310 ifasc(w$)>36andasc(w$)<>48then12100
  382. 12400 x=1:sp=asc(w$)-32:ifsp>4thensp=0
  383. 12410 pokev+21,peek(v+21)and(255-2^sp):gosub40200
  384. 12420 pokev+17,peek(v+17)and(255-2^sp)
  385. 12430 onsp+1goto12240,12240,12240,12260,12440
  386. 12440 pokev+17,peek(v+17)and(255-2^sp)
  387. 12450 fori=0to30:j=11:gosub40200:next:pokev+17,peek(v+17)or2^sp:goto12280
  388. 12990 gosub60000
  389. 12992 goto12995
  390. 12994 gosub60010
  391. 12995 return
  392. 12996 z=18:s=0:gosub3:print"[205][205][165][157][157][183]";:fort=0to300:next
  393. 12997 z=18:s=0:gosub3:print"[144]   [157][157] ";:fort=0to200:next:goto12100
  394. 13000 printz$"[144]":v=53248:fori=15to1step-2:pokev+i,30:next:c=0:ww$=""
  395. 13005 fori=39to46:pokev+i,0:next
  396. 13010 print"aber eigentlich muessen sie ja "chr$(34)"poken"chr$(34):print
  397. 13015 print
  398. 13020 for j=7to0step-1:j$=str$(j):j$=right$(j$,1)
  399. 13030 print"[181]   [182][157][157][157][157][157][204][185][185][185][186][157][157][157][157]2^"j$"[145][145][144]";:gosub40200
  400. 13040 nextj:f=99:fori=1to9step2:pokev+i,f:nexti:pokev+21,27
  401. 13050 print:print:print"[158] 128   64   32   16    8    4    2    1 [146][144]";
  402. 13060 print:print"    vic-register 17[144][146] (adresse 53265[146])[144]":print:print
  403. 13070 print"[144]versuchen wir das doch mal, die umrech-"
  404. 13080 print"nung von dual nach dezimal kennen sie"
  405. 13090 z=21:s=0:gosub3:print"     tippen sie bitte in der form"
  406. 13095 print"'poke53265,wert[146] return'(wert von 0-31)[144]";:x=0
  407. 13097 z=18:s=0:gosub3:fori=0to38:print"  ";:next
  408. 13100 getw$:z=18:s=c:gosub3:poke204,0:ifw$=""andx=0andnotpeek(207)then13996
  409. 13110 ifw$=""then13100
  410. 13120 ifw$="v"orw$="z"orw$="*"then13994
  411. 13130 ifw$=chr$(13)then13290
  412. 13150 ifw$=chr$(20)andc=0then13100
  413. 13200 c=c+1:z=18:s=c-1:gosub3:print""w$"[144]";:x=1
  414. 13210 ifc>30then13000
  415. 13215 ifw$=chr$(20)thenww$=left$(ww$,len(ww$)-1):c=c-2:goto13100
  416. 13220 ww$=ww$+w$:goto13100
  417. 13290 ifpeek(207)then13290
  418. 13295 poke204,1
  419. 13300 ifleft$(ww$,4)<>"poke"andleft$(ww$,2)<>"p[207]"thenww$="":c=0:goto13400
  420. 13310 ifleft$(ww$,2)="p[207]"thenww$="poke"+right$(ww$,len(ww$)-2)
  421. 13320 ifmid$(ww$,5,1)=" "thenww$=left$(ww$,4)+right$(ww$,len(ww$)-5):goto13320
  422. 13325 iflen(ww$)<11thenww$="":c=0:goto13550
  423. 13330 ifmid$(ww$,5,5)<>"53265"thenww$="":c=0:goto13450
  424. 13340 ifmid$(ww$,10,1)<>","thenww$="":c=0:goto13500
  425. 13350 ifval(mid$(ww$,11,len(ww$)-10))>31thenww$="":c=0:goto13550
  426. 13370 po=val(mid$(ww$,11,len(ww$)-10)):poke53265,po:pokev+21,po
  427. 13380 if(peek(53265)and16)=0thenj=11:fori=0to20:gosub40200:next:goto13600
  428. 13390 c=0:ww$="":goto13097
  429. 13400 z=19:s=0:gosub3:print"s y n t a x - f e h l e r !"
  430. 13410 fori=oto20:gosub40200:next
  431. 13420 z=19:s=0:gosub3:print"                           ":goto13097
  432. 13450 z=19:s=0:gosub3:print"falsche adresse           !"
  433. 13460 fori=oto20:gosub40200:next
  434. 13470 z=19:s=0:gosub3:print"                           ":goto13097
  435. 13500 z=19:s=0:gosub3:print"das komma fehlt !          "
  436. 13510 fori=oto20:gosub40200:next
  437. 13520 z=19:s=0:gosub3:print"                           ":goto13097
  438. 13550 z=19:s=0:gosub3:print"falsche wertangabe !       "
  439. 13560 fori=oto20:gosub40200:next
  440. 13570 z=19:s=0:gosub3:print"                           ":goto13097
  441. 13600 pokev+21,peek(v+21)or16:poke53265,peek(53265)or16:c=0:ww$="":goto13097
  442. 13990 gosub60000
  443. 13992 goto13995
  444. 13994 gosub60010
  445. 13995 return
  446. 13996 poke204,1:z=19:s=0:gosub3:print"[205][205][165][157][157][183]";:fort=0to300:next
  447. 13997 z=19:s=0:gosub3:print"   [157][157] ";:fort=0to200:next:goto13100
  448. 14000 printz$"[144]":v=53248:fori=1to15step2:pokev+i,30:next
  449. 14005 fori=39to46:pokev+i,0:next
  450. 14010 print"weiter im video-chip:":print:print
  451. 14020 for j=7to0step-1:j$=str$(j):j$=right$(j$,1)
  452. 14030 print"[181]   [182][157][157][157][157][157][204][185][185][185][186][157][157][157][157]2^"j$"[145][145][144]";:gosub40200:nextj:print:print:print
  453. 14040 fori=1to7step2:pokev+i,99:next:pokev+21,8
  454. 14050 print"    vic-register 22[144][146]  (adresse 53270[146][144])"
  455. 14060 print"      - originalbelegung bit 0-3 -[144]":print:print:print
  456. 14070 print"uns interessieren in dieser folge nur"
  457. 14080 print"die bits 0-3, der rest folgt spaeter   "
  458. 14085 z=21:s=0:gosub3:print"    experimentieren sie doch mal!"
  459. 14090 print"tasten 0-3: setzen, 'shift' o-3:loeschen";
  460. 14100 getw$:ifw$=""andx=0then14996
  461. 14105 ifw$=""then14100
  462. 14110 ifpeek(653)then14300
  463. 14120 ifw$="v"orw$="z"orw$="*"then14994
  464. 14130 ifasc(w$)<48orasc(w$)>51then14100
  465. 14200 sp=asc(w$)-48:x=1
  466. 14210 pokev+21,peek(v+21)or2^sp:gosub40100
  467. 14220 pokev+22,peek(v+22)or2^sp
  468. 14230 onsp+1goto14240,14240,14240,14260
  469. 14240 z=13:s=0:gosub3:print"die bits 0-2 legen die bildschirmver-",
  470. 14242 print"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]   [144]";
  471. 14245 print"schiebung nach rechts oder links fest   ";
  472. 14247 print"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]   [144]";:goto14100
  473. 14260 z=13:s=0:gosub3:print"     bit 3 ist zustaendig fuer die     ",
  474. 14262 print"     [197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]      [144]";
  475. 14265 print"  bildschirmbreite: 40 oder 38 spalten  ";
  476. 14267 print"  [197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]  [144]";:goto14100
  477. 14290 goto14100
  478. 14300 ifasc(w$)<33orasc(w$)>48then14100
  479. 14310 ifasc(w$)>35andasc(w$)<>48then14100
  480. 14400 x=1:sp=asc(w$)-32:ifsp>4thensp=0
  481. 14410 pokev+21,peek(v+21)and(255-2^sp):gosub40200
  482. 14420 pokev+22,peek(v+22)and(255-2^sp)
  483. 14430 onsp+1goto14240,14240,14240,14260
  484. 14990 gosub60000
  485. 14992 goto14995
  486. 14994 gosub60010
  487. 14995 return
  488. 14996 z=18:s=0:gosub3:print"[205][205][165][157][157][183]";:fort=0to300:next
  489. 14997 z=18:s=0:gosub3:print"[144]   [157][157] ";:fort=0to200:next:goto14100
  490. 15000 printz$"[144]":v=53248:fori=1to15step2:pokev+i,30:next
  491. 15005 fori=39to46:pokev+i,0:next
  492. 15010 print"noch mehr vom vic ...":print:print
  493. 15020 for j=7to0step-1:j$=str$(j):j$=right$(j$,1)
  494. 15030 print"[156][181]   [182][157][157][157][157][157][204][185][185][185][186][157][157][157][157]2^"j$"[145][145][144]";:gosub40200:nextj:print:print:print
  495. 15040 fori=1to07step2:pokev+i,99:next:pokev+21,15
  496. 15050 print"    vic-register [156]32[144][146]  (adresse [156]53280[146][144])"
  497. 15060 print"      - aktuelle belegung bit 0-3 -[144]":print:print:print
  498. 15070 print"uns interessieren auch diesmal nur die"
  499. 15080 print"bits 0-3, der rest ist ohne funktion"
  500. 15085 z=21:s=0:gosub3:print"    experimentieren sie doch mal!"
  501. 15090 print"tasten 0-3: setzen, 'shift' o-3:loeschen";
  502. 15100 getw$:ifw$=""andx=0then15996
  503. 15105 ifw$=""then15100
  504. 15110 ifpeek(653)then15300
  505. 15120 ifw$="v"orw$="z"orw$="*"then15994
  506. 15130 ifasc(w$)<48orasc(w$)>51then15100
  507. 15200 sp=asc(w$)-48:x=1
  508. 15210 pokev+21,peek(v+21)or2^sp:gosub40100
  509. 15220 pokev+32,peek(v+32)or2^sp
  510. 15230 z=13:s=6:gosub3:print"farbe =    [157][157][157][157]";peek(v+32)-240;"[146]     [157][157][157][157][157][144][146]"
  511. 15240 z=15:s=0:gosub3:print"diese adresse bestimmt die rahmenfarbe  ";
  512. 15250 print"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][144]",
  513. 15260 print"       sie haben gesetzt:         [157][157][157][157][157][157][157]";fa$(peek(v+32)-240);"   [157]
  514. 15270 [153]"";:[129]i[178]0[164]17:[153]" cmdval";:[130]:[153]"stop";
  515. 15290 [137]15100
  516. 15300 [139][198](w$)[179]33[176][198](w$)[177]48[167]15100
  517. 15310 [139][198](w$)[177]35[175][198](w$)[179][177]48[167]15100
  518. 15400 x[178]1:sp[178][198](w$)[171]32:[139]sp[177]4[167]sp[178]0
  519. 15410 [151]v[170]21,[194](v[170]21)[175](255[171]2[174]sp):[141]40200
  520. 15420 [151]v[170]32,[194](v[170]32)[175](255[171]2[174]sp)
  521. 15430 [137]15230
  522. 15990 [141]60000
  523. 15992 [137]15995
  524. 15994 [141]60010
  525. 15995 [142]
  526. 15996 z[178]18:s[178]0:[141]3:[153]"(NULL)(NULL)fncmdcmdusr";:[129]t[178]0[164]300:[130]
  527. 15997 z[178]18:s[178]0:[141]3:[153]"stop   cmdcmd ";:[129]t[178]0[164]200:[130]:[137]15100
  528. 16000 [153]z$"stop":v[178]53248:[129]i[178]1[164]15[169]2:[151]v[170]i,30:[130]
  529. 16005 [129]i[178]39[164]46:[151]v[170]i,0:[130]
  530. 16010 [153]"fuer's erste das letzte vom vic ...":[153]:[153]
  531. 16020 [129] j[178]7[164]0[169][171]1:j$[178][196](j):j$[178][201](j$,1)
  532. 16030 [153]"defint   abscmdcmdcmdcmdcmd(NULL)pospospossqrcmdcmdcmdcmd2^"j$"ononstop";:[141]40200:[130]j:[153]:[153]:[153]
  533. 16040 [129]i[178]1[164]07[169]2:[151]v[170]i,99:[130]:[151]v[170]21,15
  534. 16050 [153]"    vic-register def33stopwait  (adresse def53281waitstop)"
  535. 16060 [153]"      - aktuelle belegung bit 0-3 -stop":[153]:[153]:[153]
  536. 16070 [153]"auch hier sind nur die bits 0-3        "
  537. 16080 [153]"interessant, der rest ist ohne funktion."
  538. 16085 z[178]21:s[178]0:[141]3:[153]"    experimentieren sie doch mal!"
  539. 16090 [153]"tasten 0-3: setzen, 'shift' o-3:loeschen";
  540. 16100 [161]w$:[139]w$[178]""[175]x[178]0[167]16996
  541. 16105 [139]w$[178]""[167]16100
  542. 16110 [139][194](653)[167]16300
  543. 16120 [139]w$[178]"v"[176]w$[178]"z"[176]w$[178]"*"[167]16994
  544. 16130 [139][198](w$)[179]48[176][198](w$)[177]51[167]16100
  545. 16200 sp[178][198](w$)[171]48:x[178]1
  546. 16210 [151]v[170]21,[194](v[170]21)[176]2[174]sp:[141]40100
  547. 16220 [151]v[170]33,[194](v[170]33)[176]2[174]sp
  548. 16230 z[178]13:s[178]6:[141]3:[153]"farbe =    cmdcmdcmdcmd";[194](v[170]33)[171]240;"wait     cmdcmdcmdcmdcmdstopwait"
  549. 16240 z[178]15:s[178]0:[141]3:[153]"diese adresse bestimmt die hintergrund- ";
  550. 16250 [153]"valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalstop",
  551. 16260 [153]"farbe. sie haben gesetzt:         cmdcmdcmdcmdcmdcmdcmd";fa$([194](v[170]33)[171]240);"   cmdcmdcmdcmd"
  552. 16270 [153]"";:[129]i[178]0[164]24:[153]" cmdval";:[130]:[153]"stop";
  553. 16290 [137]16100
  554. 16300 [139][198](w$)[179]33[176][198](w$)[177]48[167]16100
  555. 16310 [139][198](w$)[177]35[175][198](w$)[179][177]48[167]16100
  556. 16400 x[178]1:sp[178][198](w$)[171]32:[139]sp[177]4[167]sp[178]0
  557. 16410 [151]v[170]21,[194](v[170]21)[175](255[171]2[174]sp):[141]40200
  558. 16420 [151]v[170]33,[194](v[170]33)[175](255[171]2[174]sp)
  559. 16430 [137]16230
  560. 16990 [141]60000
  561. 16992 [137]16995
  562. 16994 [141]60010
  563. 16995 [142]
  564. 16996 z[178]18:s[178]0:[141]3:[153]"(NULL)(NULL)fncmdcmdusr";:[129]t[178]0[164]300:[130]
  565. 16997 z[178]18:s[178]0:[141]3:[153]"stop   cmdcmd ";:[129]t[178]0[164]200:[130]:[137]16100
  566. 17000 [153]z$"stop":v[178]53248:v$[178][199](34)
  567. 17005 [143]i=
  568. 17010 [153]"das war der erste teil":[153]:[153]"des input 64waitstop-kurses"
  569. 17020 [153]:[153]v$"bits & bytes im video-chip"v$:[153]:[153]
  570. 17030 [153]"im naechsten input 64waitstop geht's weiter mit:"
  571. 17040 [153][163]07)"(NULL)stop wie kommen die buchstaben":[153][163]9)"auf den bildschirm?"
  572. 17050 [153]:[153][163]7)"(NULL)stop selbstgestrickte sonderzeichen":[153][163]9)"und deutsche umlaute"
  573. 17060 [153]:[153][163]7)"(NULL)stop gezielte bit-manipulation":
  574. 17070 [153][163]9)"mit "v$"and"v$" und "v$"or"v$
  575. 17080 [153]:[153][163]7)"(NULL)stop bildschirmverschiebung":[153][163]9)"nach mass"
  576. 17990 [141]60000
  577. 17992 [137]17995
  578. 17994 [141]60010
  579. 17995 [142]
  580. 18000 [153]z$"stop":v[178]53248
  581. 18990 [141]60000
  582. 18992 [137]18995
  583. 18994 [141]60010
  584. 18995 [142]
  585. 19000 [153]z$"stop":v[178]53248
  586. 19990 [141]60000
  587. 19992 [137]19995
  588. 19994 [141]60010
  589. 19995 [142]
  590. 20000 [143] z$ neu setzen
  591. 20020 z$[178]"der c 64 - bits & bytes im videochip / 1"
  592. 20030 z$[178]z$[170]"wait seite"[170][196](in)
  593. 20035 z$[178]z$[170]"   vor waitv  zurueck waitz  menue wait*  "
  594. 20040 z$[178]"load"[170]z$[170]"wait"
  595. 20100 [142]
  596. 25000 [151]v[170]32,0:[151]v[170]33,0:[151]v[170]17,27:[151]v[170]22,200:[151]v[170]21,0
  597. 25010 [153]"load   bits & bytes im video-chip / teil 1  ";:[153]:[153]:[153]
  598. 25020 [153]"(NULL)sys einfuehrung                    seite 1";:[153]
  599. 25030 [153]"(NULL)sys bits & bytes":[153]"  ein exkurs in":[153]"  das duale zahlensystem";
  600. 25035 [153][163]33)"seite 4";:[153]
  601. 25040 [153]"(NULL)sys vic-register 17               seite 11";:[153]
  602. 25050 [153]"(NULL)sys vic-register 22               seite 14";:[153]
  603. 25060 [153]"(NULL)sys vic-register 32               seite 15";:[153]
  604. 25070 [153]"(NULL)sys vic-register 33               seite 16";:[153]
  605. 25072 [153]"(NULL)sys vorschau                      seite 17";:
  606. 25075 z[178]24:s[178]0:[141]3:[153]" seitenzahl     und 'return' eingeben waitsys";
  607. 25080 cc$[178]"":cc[178]0
  608. 25100 z[178]24:s[178]cc[170]13:[141]3:[161]w$:[139]w$[178]""[175]cc[178]0[167]26000
  609. 25102 [139]w$[178]""[167]25100
  610. 25105 [139][198](w$)[178]20[175]cc[177]0[167]cc[178]cc[171]1:cc$[178][200](cc$,[195](cc$)[171]1):[153]"cmd ";:[137]25100
  611. 25110 [139][198](w$)[178]13[167]25300
  612. 25120 [139][198](w$)[179]48[176][198](w$)[177]57[167]25100
  613. 25130 [139]cc[177][178]2[167]25100
  614. 25140 [139][198](w$)[179][177]20[167][153]"sys"w$;:cc$[178]cc$[170]w$:cc[178]cc[170]1:[137]25100
  615. 25150 [139][198](w$)[178]20[167][153]"cmd ";:[137]25100
  616. 25300 [139]cc$[178]""[167]25100
  617. 25310 [139][197](cc$)[177]17[167][153]"cmdcmd  ";:cc$[178]"":cc[178]0:[137]25100
  618. 25320 in[178][197](cc$):[141]63300:[142]
  619. 26000 z[178]21:s[178]10:[141]3:[153]"clr(NULL)(NULL)fncmdcmdusr   waitsys";:[129]t[178]0[164]300:[130]
  620. 26050 z[178]21:s[178]10:[141]3:[153]"stop   cmdcmd    ";:[129]t[178]0[164]180:[130]:[137]25100
  621. 30000 [143] titel
  622. 30100 v[178]53248:[151]v[170]32,00:[151]v[170]33,00:[153]"loadstop"
  623. 30300 [153]" =tanright$ = or=^ ortan^     =tanright$ = = or=^ =tan^ ortan^"
  624. 30400 [153]" (NULL) (NULL) (NULL)  (NULL)  (NULL)       (NULL) (NULL) (NULL) (NULL)  (NULL)  (NULL)   (NULL)"
  625. 30500 [153]" -tan< (NULL)  (NULL)  /tan^  &  -tan< /=exp  (NULL)  -<  /tan^"
  626. 30600 [153]" (NULL) (NULL) (NULL)  (NULL)    (NULL)     (NULL) (NULL)  (NULL)   (NULL)  (NULL)     (NULL)"
  627. 30700 [153]" >tan(NULL) >  >  /tanexp     >tan(NULL)  >   >  >tanexp /tanexp":[153]
  628. 30800 [153]
  629. 30900 [153]"                 (NULL) then(NULL)(NULL)fn"
  630. 31000 [153]"                 (NULL) then  fn":[153]:[153]
  631. 31100 [153]"  = = = =tanright$ =tan^ (NULL)tanright$     (NULL)tan^ = = = =tanright$"
  632. 31200 [153]"  (NULL) (NULL) (NULL) (NULL) (NULL) (NULL)   (NULL) (NULL)     (NULL)   (NULL) (NULL) (NULL) (NULL) (NULL)"
  633. 31300 [153]"  (NULL) (NULL) (NULL) (NULL) (NULL) -<  (NULL) (NULL)  tan  (NULL)   -tan< (NULL) -tan(NULL)"
  634. 31400 [153]"  (NULL) (NULL) (NULL) (NULL) (NULL) (NULL)   (NULL) (NULL)     (NULL)   (NULL) (NULL) (NULL) (NULL)"
  635. 31500 [153]"  mid$tan(NULL) > >tan(NULL) >tanexp mid$tan(NULL)     mid$tanexp > > > >"
  636. 31600 [153]"von                               teil 1";
  637. 31700 [153]"j. seeger                         valvalvalvalvalval";
  638. 31800 z[178]24:s[178]1:[141]3:[153]"           weiter mit waitv               wait";
  639. 32000 bf[178]55296
  640. 32100 af[178]41:[141]39100:[143] b
  641. 32200 af[178]45:[141]39200:[143] i
  642. 32300 af[178]47:[141]39100:[143] t
  643. 32400 af[178]51:[141]39100:[143] s
  644. 32500 af[178]56:[141]39200:[143] $
  645. 32600 af[178]59:[141]39100:[143] b
  646. 32700 af[178]63:[141]39100:[143] y
  647. 32800 af[178]67:[141]39100:[143] t
  648. 32900 af[178]71:[141]39100:[143] e
  649. 33000 af[178]75:[141]39100:[143] s
  650. 33100 wf[178][187](1)[172]7[170]1:n[178]wf:[141]40300:[129]i[178]bf[170]337[164]bf[170]347:[151]i,wf:[151]i[170]40,wf:[130]
  651. 33200 af[178]482:[141]39100:[143] v
  652. 33300 af[178]486:[141]39200:[143] i
  653. 33400 af[178]488:[141]39100:[143] d
  654. 33500 af[178]492:[141]39100:[143] e
  655. 33600 af[178]496:[141]39100:[143] o
  656. 33700 af[178]501:[141]39200:[143] -
  657. 33800 af[178]504:[141]39100:[143] c
  658. 33900 af[178]508:[141]39100:[143] h
  659. 34000 af[178]512:[141]39200:[143] i
  660. 34100 af[178]514:[141]39100:[143] p
  661. 34200 [129]i[178]bf[170]680[164]bf[170]690:[151]i,3:[151]i[170]40,3:[130]
  662. 34300 [129]i[178]bf[170]713[164]bf[170]719:[151]i,1:[130]
  663. 34400 [129]i[178]bf[170]753[164]bf[170]759:[151]i,2:[130]
  664. 34500 [129]i[178]bf[170]960[164]bf[170]999:[151]i,2:[130]
  665. 38800 i[178]0
  666. 38900 [161]w$:[139]w$[178]"v"[167][142]
  667. 38930 i[178]i[170]1:[139]i[179]100[167]38900
  668. 38950 [153]"load":aa[178]0:[137]30100
  669. 39000 [137]32000
  670. 39100 wf[178][181]([187](1)[172]7[170]1):n[178]wf:[141]40300
  671. 39150 af[178]af[170]bf:[129]i[178]af[164]af[170]160[169]40:[151]i,wf:[151]i[170]1,wf:[151]i[170]2,wf:[130]
  672. 39190 [129]t[178]0[164]10:[130]:[142]
  673. 39200 wf[178][181]([187](1)[172]7[170]1):n[178]wf:[141]40300
  674. 39250 af[178]af[170]bf:[129]i[178]af[164]af[170]160[169]40:[151]i,wf:[130]:[129]t[178]0[164]10:[130]:[142]
  675. 40000 [143]toene
  676. 40100 [143]"bomm"
  677. 40110 t[178]54272:[151]t,117:[151]t[170]1,6:[151]t[170]5,15:[151]t[170]6,90:[151]t[170]24,15
  678. 40120 [151]t[170]4,17:[129]m[178]0[164]150:[130]:[151]t[170]4,16:[142]
  679. 40200 [143]"bing"
  680. 40210 t[178]54272:[151]t[170]7,195:[151]t[170]8,4[172]j[170]30:[151]t[170]12,15:[151]t[170]13,85:[151]t[170]24,15
  681. 40220 [151]t[170]11,17:[129]m[178]0[164]50:[130]:[151]t[170]11,16:[142]
  682. 40300 [143]titelton
  683. 40310 t[178]54272:[151]t[170]14,tl(n):[151]t[170]15,th(n):[151]t[170]19,15:[151]t[170]20,54:[151]t[170]24,15
  684. 40315 [139]aa[178]4[167]aa[178]0
  685. 40317 [139]aa[178]0[167][151]t[170]4,17
  686. 40318 aa[178]aa[170]1
  687. 40320 [151]t[170]18,17:[129]m[178]0[164]80:[130]:[151]t[170]18,16:[151]t[170]4,16:[129]m[178]0[164]20:[130]
  688. 40399 [142]
  689. 49999 [128]
  690. 50000 [143] sprite block 11
  691. 50010 [129]i[178]704[164]766:[135]d:[151]i,d:[130]i
  692. 50020 [131]255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  693. 50030 [131]255,255,255,255,255,255,255,255
  694. 50040 [131]255,255,255,255,255,255,255,255,0,0,0,0,0,0,0,0,0,0,0
  695. 50050 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  696. 50100 [143] sprite block 13
  697. 50110 [129]i[178]832[164]894:[135]d:[151]i,d:[130]i
  698. 50120 [131]198,223,126,198
  699. 50121 [131]223,127,198,216
  700. 50122 [131]99,198,216,99
  701. 50123 [131]254,223,126,254
  702. 50124 [131]223,127,198,216
  703. 50125 [131]99,198,216,99
  704. 50126 [131]198,223,99,198
  705. 50127 [131]223,99,0,0
  706. 50128 [131]0,0,192,0
  707. 50129 [131]1,192,0,3
  708. 50130 [131]128,0,71,0
  709. 50131 [131]0,206,0,0
  710. 50132 [131]220,0,0,248
  711. 50133 [131]0,0,240,0
  712. 50134 [131]0,254,0,0
  713. 50135 [131]252,0,0
  714. 50200 [134]fa$(15):[129]i[178]0[164]15:[135]d$:fa$(i)[178]d$:[130]
  715. 50210 [131]schwarz,weiss,rot,tuerkis,violett,gruen,blau,gelb
  716. 50220 [131]orange,braun,hellrot,grau 1,grau 2,hellgruen,hellblau,grau 3
  717. 50300 [143] data fuer titelton
  718. 50310 [129]i[178]1[164]7:[135]d:tl(i)[178]d:[135]d:th(i)[178]d:[130]
  719. 50350 [131]48,11,24,14,195,16,48,11,195,16,24,14,195,16
  720. 50900 [142]
  721. 60000 [151]204,1:[161]w$:[139]w$[178]""[167]60000
  722. 60010 [151]204,1:[139]w$[178]"z"[167][139]in[177]0[167]in[178]in[171]1:[141]63300:[142]
  723. 60020 [139]w$[178]"v"[167]in[178]in[170]1:[141]63300:[142]
  724. 60030 [139]w$[178]"*"[167][151]v[170]21,0:cc[178]0:cc$[178]"":[141]25000:[142]
  725. 60100 [137]60000
  726. 63300 [151]v[170]17,27:[151]v[170]21,0:[151]v[170]22,8:[151]v[170]32,15:[151]v[170]33,15:[141]20000
  727. 63310 [129]i[178]39[164]46:[151]v[170]i,6:[151]2001[170]i,11:[130]:[151]v[170]23,0:[151]v[170]29,0
  728. 63320 [151]v[170]14,32:[151]v[170]12,72:[151]v[170]10,112:[151]v[170]8,152:[151]v[170]6,192:[151]v[170]4,232
  729. 63330 [151]v[170]16,2[174]0[170]2[174]1:[151]v[170]2,16:[151]v[170]0,56
  730. 63390 [142]
  731.